home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / PDWIZARD / SETUP1 / WELCOME.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-18  |  5.0 KB  |  157 lines
  1. VERSION 5.00
  2. Begin VB.Form frmWelcome 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "#"
  6.    ClientHeight    =   3255
  7.    ClientLeft      =   540
  8.    ClientTop       =   6000
  9.    ClientWidth     =   6435
  10.    ClipControls    =   0   'False
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "welcome.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    LockControls    =   -1  'True
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   3255
  26.    ScaleWidth      =   6435
  27.    Begin VB.CommandButton cmdExit 
  28.       Cancel          =   -1  'True
  29.       Caption         =   "#"
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   420
  40.       Left            =   3705
  41.       MaskColor       =   &H00000000&
  42.       TabIndex        =   1
  43.       Top             =   2655
  44.       Width           =   1440
  45.    End
  46.    Begin VB.CommandButton cmdOK 
  47.       Caption         =   "#"
  48.       Default         =   -1  'True
  49.       BeginProperty Font 
  50.          Name            =   "MS Sans Serif"
  51.          Size            =   8.25
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   420
  59.       Left            =   1470
  60.       MaskColor       =   &H00000000&
  61.       TabIndex        =   0
  62.       Top             =   2655
  63.       Width           =   1440
  64.    End
  65.    Begin VB.Image imgWelcome 
  66.       Height          =   480
  67.       Left            =   630
  68.       Picture         =   "welcome.frx":0442
  69.       Top             =   330
  70.       Width           =   480
  71.    End
  72.    Begin VB.Label lblWelcome 
  73.       AutoSize        =   -1  'True
  74.       Caption         =   "*"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   8.25
  78.          Charset         =   0
  79.          Weight          =   400
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   195
  85.       Left            =   1305
  86.       TabIndex        =   2
  87.       Top             =   330
  88.       Width           =   4800
  89.       WordWrap        =   -1  'True
  90.    End
  91.    Begin VB.Label lblRunning 
  92.       AutoSize        =   -1  'True
  93.       Caption         =   "#"
  94.       BeginProperty Font 
  95.          Name            =   "MS Sans Serif"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   195
  104.       Left            =   435
  105.       TabIndex        =   3
  106.       Top             =   915
  107.       Width           =   5535
  108.       WordWrap        =   -1  'True
  109.    End
  110.    Begin VB.Shape shpWelcome 
  111.       BorderColor     =   &H00000000&
  112.       BorderWidth     =   2
  113.       Height          =   2250
  114.       Left            =   210
  115.       Top             =   135
  116.       Width           =   6015
  117.    End
  118. Attribute VB_Name = "frmWelcome"
  119. Attribute VB_GlobalNameSpace = False
  120. Attribute VB_Creatable = False
  121. Attribute VB_TemplateDerived = False
  122. Attribute VB_PredeclaredId = True
  123. Attribute VB_Exposed = False
  124. Option Explicit
  125. Option Compare Text
  126. 'frmWelcome
  127. Private Sub cmdExit_Click()
  128.     ExitSetup Me, gintRET_EXIT
  129. End Sub
  130. Private Sub cmdOK_Click()
  131.     Unload Me
  132. End Sub
  133. Private Sub Form_Load()
  134.     Dim intWidth As Integer
  135.     SetFormFont Me
  136.     cmdExit.Caption = ResolveResString(resBTNEXIT)
  137.     cmdOK.Caption = ResolveResString(resBTNOK)
  138.     lblRunning.Caption = ResolveResString(resLBLRUNNING)
  139.     Caption = gstrTitle
  140.     intWidth = TextWidth(Caption) + cmdOK.Width * 2
  141.     If intWidth > Width Then
  142.         Width = intWidth
  143.     End If
  144.     lblWelcome.Caption = ResolveResString(resWELCOME, "|1", gstrAppName)
  145.     shpWelcome.Move (ScaleWidth - shpWelcome.Width) \ 2
  146.     cmdOK.Left = (ScaleWidth - cmdOK.Width * 1.5 - cmdExit.Width) \ 2
  147.     cmdExit.Left = cmdOK.Left + cmdOK.Width * 1.5
  148.     EtchedLine Me, shpWelcome.Left - 50, cmdOK.Top - cmdOK.Height \ 2, shpWelcome.Width + 100
  149.     CenterForm Me
  150. End Sub
  151. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  152.     If UnloadMode <> 1 Then
  153.         ExitSetup Me, gintRET_EXIT
  154.         Cancel = 1
  155.     End If
  156. End Sub
  157.